home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_11135_goChapterCSTR < prev    next >
Text File  |  1994-09-21  |  349b  |  10 lines
  1. global chapterstart
  2. put chapterstart into cs
  3. do "sort items of cs numeric"
  4. repeat
  5. if item 1 of cs is not a number or value of item 1 of cs < 1 then delete item 1 of cs
  6. else exit repeat
  7. end repeat
  8. if which > the number of items in cs
  9. then answer tStr("LibMsg",35)&" (1 "&tStr("LibMsg",18)&&the number of items in cs&")."
  10. else goPage item which of cs